home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2003 #12 / Amiga Plus CD - 2003 - No. 12.iso / AmigaPlus / Tools / AmigaSystem / Pixload-4.2 / Pixload-Prefs < prev    next >
Text File  |  2003-08-12  |  15KB  |  506 lines
  1. /* $VER: Pixload Prefs 4.2 - www.Pixel-Art.fr.st */
  2.  
  3. parse arg global.acces
  4.  
  5. call init
  6. call CreateApp
  7. call lecture
  8. call HandleApp
  9. /*****************************/
  10. init: procedure expose global.
  11.  
  12.    l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  13.    if AddLibrary("rxmui.library","rxsocket.library","rxwb.library","rexxsupport.library")~=0 then exit
  14.    call RxMUIOpt("debugmode showerr")
  15.  
  16.    global.total=20
  17.    global.taille
  18.    global.total
  19.    global.dessin.
  20.    global.reactif.
  21.    global.status_miami.
  22.    global.bouton.
  23.    global.modem.
  24.    global.miami.
  25.    global.orientation=3
  26.    global.songe.
  27.    global.portarexx=upper(right(global.acces,length(global.acces)-14))
  28.    global.portarexx=left(global.portarexx,length(global.portarexx)-6)||".1"
  29.  
  30.    if global.acces="" then global.acces="pixload:prefs/pixload.prefs"
  31.  
  32.    call open(chemin,global.acces,'Read')
  33.  
  34.     global.nbicon=readln(chemin)
  35.     a=readln(chemin)
  36.     a=readln(chemin)
  37.     a=readln(chemin)
  38.     a=readln(chemin)
  39.  
  40.     a=readln(chemin)
  41.     a=readln(chemin)
  42.     a=readln(chemin)
  43.     a=readln(chemin)
  44.  
  45.     do num=0 to global.total-1
  46.      a=readln(chemin)
  47.      a=readln(chemin)
  48.  
  49.      global.modem.num=readln(chemin)
  50.      if global.modem.num=1 then global.status_miami.num="pixload:images/miami-on"
  51.     else global.status_miami.num="pixload:images/miami-off"
  52.      a=readln(chemin)
  53.      if a="" then a="pixload:images/test"
  54.      global.dessin.num=a
  55.      a=readln(chemin)
  56.      a=readln(chemin)
  57.      a=readln(chemin)
  58.      a=readln(chemin)
  59.     end
  60.  
  61.    call close(chemin)
  62.  
  63.  
  64. return
  65. /**********************************/
  66. HandleApp: procedure expose global.
  67.     ctrl_c=2**12
  68.     do forever
  69.     call NewHandle("app","h",ctrl_c)
  70.     if and(h.signals,ctrl_c)>0 then exit
  71.     select
  72.        when h.event="QUIT" then exit
  73.        when h.event="APPEVENT" then call dessins(h.to,h.name)
  74.        otherwise interpret h.event
  75.     end
  76.     end
  77. /*********************************/
  78. CreateApp: procedure expose global.
  79.  
  80.     app.Title="Pixload-Prefs"
  81.     app.Version="$VER: Pixload Prefs version 4.2"
  82.     app.Author="Pixel Art - www.Pixel-Art.fr.st"
  83.     app.Description="Config Pixload bar"
  84.     app.Base="Pixload-config"
  85.     app.SubWindow="fenetre_info"
  86.      fenetre_info.Class="BWin"
  87.      fenetre_info.nodragbar=1
  88.      fenetre_info.borderless=1
  89.      fenetre_info.closegadget=0
  90.      fenetre_info.depthgadget=0
  91.      fenetre_info.nosize=1
  92.      fenetre_info.Contents="info_group"
  93.        info_group.0="info_contenu"
  94.     info_contenu.Class="text"
  95.     info_contenu.Font="Big"
  96.     info_contenu.Contents=ParseText("%3%c            Pixload Prefs version 4.2           ")
  97.        info_group.1=hbar()
  98.        info_group.2=vspace(2)
  99.        info_group.3="info_contenu_1"
  100.     info_contenu_1.Class="text"
  101.     info_contenu_1.Font="Big"
  102.     info_contenu_1.Contents=""
  103.  
  104.     if NewObj("APPLICATION","APP")>0 then exit
  105.     call set("fenetre_info","open",1)
  106.  
  107.     call set("info_contenu_1","contents",parsetext("%3%cCreating window"))
  108.  
  109.     win.ID="MAIN"
  110.     win.AppWindow=1
  111.     win.Title="Pixload Prefs"
  112.     win.Contents="barre_group"
  113.  
  114.      barre_group.0="entete"
  115.        entete.class="group"
  116.        entete.frame="group"
  117.        entete.columns=14
  118.  
  119.        entete.0="entete_0"
  120.      entete_0.class="dtpic"
  121.      entete_0.file="Pixload:images/icone"
  122.      entete_0.inputmode="relverify"
  123.      entete_0.frame="button"
  124.  
  125.        entete.1=label(Parsetext("%3Icons"))
  126.  
  127.        entete.2="entete_1"
  128.      entete_1.class="group"
  129.      entete_1.0=hspace()
  130.  
  131.        entete.3=checkmark("global.nom",0)
  132.        entete.4=label(Parsetext("%3Text under icons    "))
  133.  
  134.        entete.5=checkmark("global.time",1)
  135.        entete.6=label(Parsetext("%3Clock    "))
  136.  
  137.        entete.7=checkmark("global.fond",0)
  138.        entete.8=label(Parsetext("%3Background  ")||"(light / dark)    ")
  139.  
  140.        entete.9=checkmark("son",0)
  141.        entete.10=label(Parsetext("%3Sound    "))
  142.  
  143.        entete.11="entete_3"
  144.      entete_3.class="group"
  145.      entete_3.0=hspace()
  146.  
  147.        entete.12="entete_5"
  148.      entete_5.class="numericbutton"
  149.      entete_5.min=1
  150.      entete_5.max=5
  151.      entete_5.Format="  %ld column(s)  "
  152.      entete_5.value=global.orientation
  153.  
  154.        entete.13="entete_6"
  155.      entete_6.class="numericbutton"
  156.      entete_6.min=1
  157.      entete_6.max=global.total
  158.      entete_6.value=global.nbicon
  159.      entete_6.Format="  %ld icon(s)  "
  160.  
  161.      barre_group.1="drag_drop"
  162.        drag_drop.class="group"
  163.        drag_drop.frame="group"
  164.        drag_drop.columns=6
  165.  
  166.        drag_drop.0=label(parsetext("%3 Pictures viewer"))
  167.  
  168.        drag_drop.1="entete_7"
  169.      entete_7.class="popasl"
  170.      entete_7.ShortHelp='Display pictures (IFF, GIF, JPEG)'
  171.      entete_7.string=string("images","f")
  172.  
  173.        drag_drop.2=label(parsetext("%3 Text reader"))
  174.        drag_drop.3="entete_8"
  175.      entete_8.class="popasl"
  176.      entete_8.ShortHelp='Read Texts (Text, Rexx, Script)'
  177.      entete_8.string=string("texte","f")
  178.  
  179.        drag_drop.4=label(parsetext("%3 Modules music player"))
  180.        drag_drop.5="entete_9"
  181.      entete_9.class="popasl"
  182.      entete_9.ShortHelp='Play Sounds (8SVX)'
  183.      entete_9.string=string("musique","f")
  184.  
  185.     barre_group.2="ctrlg_1"
  186.       ctrlg_1.class="scrollgroup"
  187.       ctrlg_1.frame="group"
  188.       ctrlg_1.freehoriz=0
  189.       ctrlg_1.freevert=1
  190.       ctrlg_1.0="gg"
  191.        gg.class="group"
  192.        gg.0="ctrlg"
  193.      ctrlg.class="group"
  194.      ctrlg.columns=9
  195.      do i=0 to global.total-1
  196.      k=i*9
  197.      ctrlg.k="petit_iff."i
  198.      petit_iff.i.class="dtpic"
  199.      petit_iff.i.file=global.dessin.i
  200.      petit_iff.i.transparent=1
  201.      petit_iff.i.shorthelp=parsetext("To replace icon, drag and drop picture from Pixload/icon folder\nby a click on button at top left of this window")
  202.      k=i*9+1
  203.      ctrlg.k=label(parsetext("%3Drop event"))
  204.      k=i*9+2
  205.      ctrlg.k="global.reactif."i
  206.      global.reactif.i=checkmark("global.reactif."i,0)
  207.      k=i*9+3
  208.      ctrlg.k="programme."i
  209.      programme.i.class="popasl"
  210.      programme.i.ShortHelp='Programs'
  211.      programme.i.string=string("fille."i,"f")
  212.      k=i*9+4
  213.      ctrlg.k="global.miami."i
  214.      global.miami.i.class="dtpic"
  215.      global.miami.i.file=global.status_miami.i
  216.      global.miami.i.transparent=1
  217.      global.miami.i.inputmode="relverify"
  218.      global.miami.i.frame="button"
  219.      global.miami.i.shorthelp=parsetext("Click here to activate Miami Control Panel\nand choose your type of connection")
  220.      k=i*9+5
  221.      ctrlg.k="texte_aide."i
  222.      texte_aide.i.class="group"
  223.      texte_aide.i.ShortHelp=Parsetext("Help Bubble and also\nText located under icons")
  224.      texte_aide.i.0=String("help."i,"f")
  225.      k=i*9+6
  226.      ctrlg.k="texte_touche."i
  227.      texte_touche.i.class="group"
  228.      texte_touche.i.ShortHelp=Parsetext("lamiga + key : Amiga left\nramiga + key : Amiga right\nlshift + key : Shift left\nrshift + key : Shift right\nlalt + key   : Alt left\nralt + key   : Alt right\nctrl + key   : Control")
  229.      texte_touche.i.0=String("touche."i,"f")
  230.      texte_touche.i.inputmode="relverify"
  231.      k=i*9+7
  232.      ctrlg.k="fichier_son."i
  233.      fichier_son.i.class="popasl"
  234.      fichier_son.i.ShortHelp='Sounds'
  235.      fichier_son.i.string=string("global.songe."i,"f")
  236.      k=i*9+8
  237.      ctrlg.k="haut_parleur."i
  238.      haut_parleur.i.class="dtpic"
  239.      haut_parleur.i.ShortHelp=Parsetext("Click to hear")
  240.      haut_parleur.i.file="pixload:images/son"
  241.      haut_parleur.i.inputmode="relverify"
  242.      haut_parleur.i.frame="button"
  243.     end
  244.  
  245.     if NewObj("window","win")>0 then exit
  246.     call add("app","win")
  247.  
  248.     call Notify("win","CloseRequest",1,"app","Return","call fin")
  249.     call Notify("entete_0","pressed",1,"app","Return","address command 'sys:c/openwin pixload:icones/'")
  250.     call Notify("entete_5","value","everytime","app","return","global.orientation=h.value","triggerattr")
  251.     call Notify("entete_6","value","everytime","app","return","call activation(h.value)","triggerattr")
  252.  
  253.     call notify("global.nom","selected","EveryTime","app","return","global.nom1=h.selected","triggerattr")
  254.     call notify("global.time","selected","EveryTime","app","return","global.time1=h.selected","triggerattr")
  255.     call notify("global.fond","selected","EveryTime","app","return","global.fond1=h.selected","triggerattr")
  256.  
  257.  
  258.     do t=0 to global.total-1
  259.        call AppMessage("petit_iff."t)
  260.        call Notify("haut_parleur."t,"pressed",1,"app","Return","call ecoute("t")")
  261.        call notify("global.reactif."t,"selected","EveryTime","app","Return","global.bouton."t"=h.selected","TriggerAttr")
  262.        call notify("global.miami."t,"pressed",1,"programme."t,"open")
  263.        call notify("global.miami."t,"pressed",1,"app","Return","call miamidx("t")")
  264.     end
  265.  
  266. return
  267. /*******************************/
  268. Lecture: procedure expose global.
  269.  
  270.     call set("info_contenu_1","contents",parsetext("%3%cReading values"))
  271.  
  272.     call open(chemin,global.acces,'Read')
  273.  
  274.     global.nbicon=readln(chemin)
  275.     call set("entete_6","value",global.nbicon)
  276.  
  277.     call set("entete_5","max",global.nbicon)
  278.  
  279.     global.orientation=readln(chemin)
  280.     call set("entete_5","value",global.orientation)
  281.  
  282.     global.nom1=readln(chemin)
  283.  
  284.     if global.nom1>0 then do
  285.        if global.nom1=2 then do
  286.       call set(global.fond,"selected",1)
  287.        end
  288.        if global.nom1=3 then do
  289.       call set(global.fond,"selected",0)
  290.        end
  291.        call set(global.nom,"selected",1)
  292.     end
  293.     else call set(global.nom,"selected",0)
  294.  
  295.     call set(son,"selected",readln(chemin))
  296.  
  297.     global.time1=readln(chemin)
  298.  
  299.     if global.time1>0 then do
  300.        if global.time1=2 then do
  301.       call set(global.fond,"selected",1)
  302.        end
  303.        if global.time1=3 then do
  304.       call set(global.fond,"selected",0)
  305.        end
  306.        call set(global.time,"selected",1)
  307.     end
  308.     else call set(global.time,"selected",0)
  309.  
  310.     call set(images,"contents",readln(chemin))
  311.     call set(texte,"contents",readln(chemin))
  312.     call set(musique,"contents",readln(chemin))
  313.     global.navigateur=readln(chemin)
  314.  
  315.     do num=0 to global.total-1
  316.     fichier.num=readln(chemin)
  317.     if fichier.num=0 | fichier.num=" " then do
  318.     set.Disabled=1
  319.     call SetAttrs("global.reactif."num,"set")
  320.     call SetAttrs("global.miami."num,"set")
  321.     call SetAttrs("petit_iff."num,"set")
  322.     call SetAttrs("programme."num,"set")
  323.     call SetAttrs("texte_aide."num,"set")
  324.     call SetAttrs("texte_touche."num,"set")
  325.     call SetAttrs("fichier_son."num,"set")
  326.     call SetAttrs("haut_parleur."num,"set")
  327.     end
  328.  
  329.     fichier.num=readln(chemin)
  330.     if fichier.num="pixload:images/reactif" then call set(global.reactif.num,"selected",1)
  331.        else call set(global.reactif.num,"selected",0)
  332.  
  333.     fichier.num=readln(chemin)
  334.     if global.modem.num=1 then do
  335.     set.Disabled=1
  336.     call SetAttrs("programme."num,"set")
  337.     call SetAttrs("global.reactif."num,"set")
  338.      end
  339.  
  340.     fichier.num=readln(chemin)
  341.     fichier.num=readln(chemin)
  342.     call set(fille.num,"contents",fichier.num)
  343.     fichier.num=readln(chemin)
  344.     call set(help.num,"contents",fichier.num)
  345.     fichier.num=readln(chemin)
  346.     call set(touche.num,"contents",fichier.num)
  347.     fichier.num=readln(chemin)
  348.     call set(global.songe.num,"contents",fichier.num)
  349.     end
  350.     call close(chemin)
  351.  
  352.     call set("info_contenu_1","contents",parsetext("%3%cOpening window"))
  353.     call set("win","open",1)
  354.     call set("fenetre_info","open",0)
  355.     address command 'run <>nil: sys:c/playdt pixload:sons/ok'
  356.  
  357. return
  358. /*******************************/
  359. dessins: procedure expose global.
  360. parse arg to,name
  361.  
  362.     num=right(to,length(to)-10)
  363.     call DoMethod("gg","InitChange")
  364.     call set(to,"file",name)
  365.     global.dessin.num=name
  366.     call DoMethod("gg","ExitChange")
  367.  
  368. return
  369. /**********************************/
  370. ecoute: procedure expose global.
  371.  
  372.   Parse arg num
  373.  
  374.   call GetAttr(global.songe.num,"contents","resultat")
  375.   address command 'run <>nil: sys:c/playdt 'resultat
  376.  
  377. return
  378. /****************************/
  379. Fin: procedure expose global.
  380.  
  381. call set("win","open",0)
  382. call open(adresse,global.acces,'Write')
  383.  
  384.     call WriteLN(adresse,global.nbicon)
  385.     call WriteLN(adresse,global.orientation)
  386.  
  387.     if global.nom1>0 then call active_fond
  388.        else global.nom1=0
  389.  
  390.     call WriteLN(adresse,global.nom1)
  391.     call WriteLN(adresse,xget("son","selected"))
  392.  
  393.     if global.time1>0 then call active_fond1
  394.        else global.time1=0
  395.  
  396.     call WriteLN(adresse,global.time1)
  397.  
  398.     call WriteLN(adresse,xget("images","contents"))
  399.     call WriteLN(adresse,xget("texte","contents"))
  400.     call WriteLN(adresse,xget("musique","contents"))
  401.     call WriteLN(adresse,global.navigateur)
  402.  
  403.     do i=0 to global.total-1
  404.  
  405.     if i <= (global.nbicon-1) then do
  406.  
  407.       call writeln(adresse,"1")
  408.  
  409.       if global.bouton.i=1 then do
  410.      call WriteLN(adresse,"pixload:images/reactif")
  411.       end
  412.       else call WriteLN(adresse,"")
  413.  
  414.       if global.modem.i=1 then do
  415.      call WriteLN(adresse,"1")
  416.       end
  417.       else do
  418.      call WriteLN(adresse,"0")
  419.       end
  420.  
  421.       call Writeln(adresse,global.dessin.i)
  422.       call WriteLN(adresse,xget("fille."i,"contents"))
  423.       call WriteLN(adresse,xget("help."i,"contents"))
  424.       call WriteLN(adresse,xget("touche."i,"contents"))
  425.       call WriteLN(adresse,xget("global.songe."i,"contents"))
  426.     end
  427.     end
  428.     call close(adresse)
  429.  
  430.     if Portwait(global.portarexx,10)~=0 then do
  431.        address value global.portarexx
  432.        quit
  433.     end
  434.  
  435.     call rxscall('Pixload:Pixload 'global.acces)
  436.  
  437.     if Portwait(global.portarexx,10)~=0 then do
  438.        address 'PIXLOAD-CONFIG.1'
  439.        exit
  440.     end
  441.  
  442. return
  443. /**********************************/
  444. activation: procedure expose global.
  445. parse arg nombre
  446.       do r=0 to global.total-1
  447.  
  448.       if nombre <= r then set.Disabled=1
  449.       else set.Disabled=0
  450.       call SetAttrs("global.reactif."r,"set")
  451.       call SetAttrs("programme."r,"set")
  452.       call SetAttrs("global.miami."r,"set")
  453.       call SetAttrs("petit_iff."r,"set")
  454.       call SetAttrs("texte_aide."r,"set")
  455.       call SetAttrs("texte_touche."r,"set")
  456.       call SetAttrs("fichier_son."r,"set")
  457.       call SetAttrs("haut_parleur."r,"set")
  458.  
  459.       if global.modem.r=1 then do
  460.       set1.Disabled=1
  461.       call SetAttrs("programme."r,"set1")
  462.       call SetAttrs("global.reactif."r,"set1")
  463.       end
  464.  
  465.       end
  466.       global.nbicon=nombre
  467.       call set("entete_5","max",nombre)
  468. return
  469. /*******************************/
  470. miamidx: procedure expose global.
  471.  
  472. parse arg num
  473.  
  474.     if global.modem.num=0 then do
  475.        icone="pixload:images/miami-on"
  476.        set.Disabled=1
  477.        global.modem.num=1
  478.     end
  479.     else do
  480.        icone="pixload:images/miami-off"
  481.        set.Disabled=0
  482.        global.modem.num=0
  483.     end
  484.  
  485.     call DoMethod("gg","InitChange")
  486.     call set(global.miami.num,"file",icone)
  487.     call DoMethod("gg","ExitChange")
  488.     call SetAttrs("programme."num,"set")
  489.     call SetAttrs("global.reactif."num,"set")
  490.  
  491. return
  492. /**************************************/
  493. active_fond: procedure expose global.
  494.  
  495.    if global.fond1=1 then global.nom1=2
  496.       else global.nom1=3
  497.  
  498. return
  499. /**************************************/
  500. active_fond1: procedure expose global.
  501.  
  502.    if global.fond1=1 then global.time1=2
  503.       else global.time1=3
  504.  
  505. return
  506.